home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
prodpack.zip
/
DB4PPSAM.EXE
/
BDLDRVR.PRG
< prev
next >
Wrap
Text File
|
1993-03-18
|
3KB
|
97 lines
FUNCTION BDLDrvr
*----------------------------------------------------------------------------
* NAME
* BDLDrvr() -
*
*----------------------------------------------------------------------------
PRIVATE lCalled, cLSTFile, cInLine
cLSTFile = ""
cInLine = ""
IF TYPE( "aClkObj[1,1]" ) = "N"
lCalled = TYPE( "CD_FILE_1" ) = "C"
IF TYPE( "BDCLINK[ 1 ]" ) = "U"
PUBLIC ARRAY BDCLINK[ 6 ]
*-- EF_EXEP_1 - XXXXXXXXXXXXXXXXXXXXXXXXX Procedure to run
IF lCalled .AND. .NOT. ISBLANK( CD_LIST_1 )
IF LEFT( CD_LIST_1, 1 ) = "@"
cLSTFile = TRIM( SUBSTR( CD_LIST_1, 2 ) )
ELSE
cLSTFile = TRIM( CD_LIST_1 )
ENDIF
IF FILE( cLSTFile ) .AND. LEFT( CD_LIST_1, 1 ) = "@"
fhLST = 0
fhLST = FOPEN( cLSTFile, "r" )
IF fhLST > 0
cInLine = FGETS( fhLST )
DO WHILE ISBLANK( cInLine ) .AND. .NOT. FEOF( fhLST )
cInLine = FGETS( fhLST )
ENDDO
IF .NOT. ISBLANK( cInLine )
BDCLINK[ 1 ] = LEFT( _FileRoot(cInLine) + SPACE(25), 25 )
ENDIF
IF FCLOSE( fhLST )
ENDIF
ENDIF
ENDIF
ENDIF
IF ISBLANK( cInLine )
BDCLINK[ 1 ] = SPACE( 25 )
ENDIF
*-- EF_CONF_1 - XXXXXXXXXXXXXXXXXXXXXXXXX Config.db
BDCLINK[ 2 ] = SPACE( 25 )
*-- EF_EXEF_1 - XXXXXXXXXXXXXXXXXXXXXXXXX EXE name
IF .NOT. ISBLANK( cInLine ) .AND. ;
lCalled .AND. LEFT( CD_LIST_1, 1 ) = "@"
BDCLINK[ 3 ] = LEFT( _FileRoot(cInLine) + SPACE(25), 25 )
ELSE
BDCLINK[ 3 ] = SPACE( 25 )
ENDIF
*-- BT_OK - Ok
BDCLINK[ 4 ] = .T.
*-- BT_CANCEL - Cancel
BDCLINK[ 5 ] = .F.
*-- BT_HELP - Help
BDCLINK[ 6 ] = .F.
ENDIF
*--------------------------------------------------------------
*-- FXL_Cancel is set to .T. is the user Cancels the dialog box
*--------------------------------------------------------------
FXL_Cancel = .F.
*--------------------------------------------------------------
*-- FXL_NoChng lets the dialog box know that the values in the
*-- array are not different from the SCR file defaults. This
*-- will allow the dialog box to use the .WIN file for a faster
*-- startup.
*--------------------------------------------------------------
FXL_NoChng = .F.
DO BDCLINK
IF .NOT. FXL_Cancel && The user clicked on OK
*-----------------------------------
*-- Put your Ok processing code here
*-----------------------------------
ENDIF
ENDIF
RETURN .T.
*-- EOF: BDLDrvr( )